home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / CSIDI.z / CSIDI
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCSSSSIIIIDDDDIIII((((3333FFFF))))                                                            CCCCSSSSIIIIDDDDIIII((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CSIDI   - CSIDI computes the determinant and inverse of a complex
  10.      symmetric matrix using the factors from CSIFA.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE CSIDI(A,LDA,N,KPVT,DET,WORK,JOB)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      AAAA COMPLEX(LDA,N)
  20.         the output from CSIFA.
  21.  
  22.      LLLLDDDDAAAA INTEGER
  23.         the leading dimension of the array A .
  24.  
  25.      NNNN INTEGER
  26.         the order of the matrix A .  KVPT    INTEGER(N)
  27.         the pivot vector from CSIFA.
  28.  
  29.      WWWWOOOORRRRKKKK COMPLEX(N)
  30.         work vector.  Contents destroyed.
  31.  
  32.      JJJJOOOOBBBB INTEGER
  33.         JOB has the decimal expansion  AB  where
  34.         If  B .NE. 0, the inverse is computed,
  35.         If  A .NE. 0, the determinant is computed,
  36.         For example, JOB = 11  gives both.  On Return Variables not requested
  37.      by JOB are not used.
  38.  
  39.      AAAA contains the upper triangle of the inverse of
  40.         the original matrix.  The strict lower triangle
  41.         is never referenced.
  42.  
  43.      DDDDEEEETTTT COMPLEX(2)
  44.         determinant of original matrix.
  45.         Determinant = DET(1) * 10.0**DET(2)
  46.         with 1.0 .LE. ABS(DET(1)) .LT. 10.0
  47.         or DET(1) = 0.0.  Error Condition
  48.  
  49.      AAAA division by zero may occur if the inverse is requested and  CSICO  has
  50.      set RCOND .EQ. 0.0 or  CSIFA  has set  INFO .NE. 0 .  LINPACK.  This
  51.      version dated 08/14/78 .  James Bunch, Univ. Calif. San Diego, Argonne
  52.      Nat. Lab.  Subroutines and Functions BLAS CAXPY,CCOPY,CDOTU,CSWAP Fortran
  53.      ABS,CMPLX,IABS,MOD,REAL
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.